home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / infop125.arc / PAGE_12.INC < prev    next >
Text File  |  1991-04-28  |  1KB  |  43 lines
  1. procedure page_12;
  2.  
  3. const
  4.   headermin = 0;
  5.   headermax = 17;
  6.  
  7. var
  8.   header : array[headermin..headermax] of byte;
  9.   i : headermin..headermax;
  10.   xword1 : word;
  11.   xword2 : word;
  12.  
  13. begin
  14.   caption1('Device      Units    Header       Attributes'
  15.     + '             Strategy     Interrupt');
  16.   xword1:=devseg;
  17.   xword2:=devofs + $0022;
  18.   window(1, 4, twidth, tlength - 2);
  19.   while xword2 < $FFFF do begin
  20.     pause2;
  21.     if endit then
  22.       Exit;
  23.     for i:=0 to 17 do
  24.       header[i]:=mem[xword1 : xword2 + i];
  25.     if header[5] and $80 = $00 then
  26.       write('            ', header[10] : 5)
  27.     else begin
  28.       for i:=10 to 17 do
  29.         write(showchar(chr(header[i])));
  30.       write('         ')
  31.     end;
  32.     write('    ');
  33.     segofs(xword1, xword2);
  34.     write('    ', bin16(cbw(header[4], header[5])), '    ');
  35.     segofs(xword1, cbw(header[6], header[7]));
  36.     write('    ');
  37.     segofs(xword1, cbw(header[8], header[9]));
  38.     writeln;
  39.     xword1:=cbw(header[2], header[3]);
  40.     xword2:=cbw(header[0], header[1])
  41.   end
  42. end;
  43.